home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 January to June / Ahoy_Magazine_84-Jan-Jun_1984_Double_L.d64 / dynamic power1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  515b  |  20 lines
  1. 5 rem--ahoy--mar issue--dynamic power---prog page 47
  2. 10 printchr$(147)"enter starting,ending line number:"
  3. 20 inputs,e
  4. 30 ifs>60000ore>60000ore<sors<0ore<0then10
  5. 40 input"increment lines by";in
  6. 50 x=s
  7. 60 printchr$(147)x;"data";:i$=""
  8. 70 geta$:ifa$=""thenprint"$[157]";:goto70
  9. 75 iflen(i$)>65anda$<>chr$(13)anda$<>chr$(20)then70
  10. 80 ifa$=chr$(20)andlen(i$)=0then70
  11. 90 printa$;
  12. 100 ifa$=chr$(20)theni$=left$(i$,len(i$)-1):goto70
  13. 110 ifa$=chr$(13)then130
  14. 120 i$=i$+a$:goto70
  15. 130 print"x=";x;":in=";in;":e=";e:print"goto150"
  16. 140 poke631,19:poke632,13:poke633,13:poke634,145:poke635,145:poke636,13
  17. 145 poke198,6:end
  18. 150 x=x+in:ifx>ethenend
  19. 160 goto60
  20.